home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earcd / grafica / amicad / arexx / dater.amicad < prev    next >
Text File  |  1999-01-01  |  467b  |  22 lines
  1. /* Inscription de la date */
  2. /* $VER: 1.00 (© R.Florac, 2/12/98) */
  3.  
  4. options results     /* indispensable pour récupérer le résultat des macros */
  5.  
  6. signal on error     /* pour l'interception des erreurs */
  7. signal on syntax
  8.  
  9. 'WRITE(DATE(1),0,0)'
  10.  
  11. exit
  12.  
  13. /* Traitement des erreurs, interruption du programme */
  14. syntax:
  15. erreur=RC
  16. 'MESSAGE("Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  17. exit
  18.  
  19. error:
  20. 'MESSAGE("Erreur en ligne 'SIGL'")'
  21. exit
  22.